library(DT)
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(readr)
library(readxl)
payroll <- read_excel("C:\\R Projects\\thesis\\project questionnaire os.xlsx") %>%
select(gender, age, income, edu)
## New names:
## * primary_trips -> primary_trips...1
## * primary_trips -> primary_trips...13
datatable(payroll, extensions = 'Buttons', options = list(
dom = 'Bfrtip',
buttons = c('copy', 'csv', 'excel', 'pdf', 'print')
)
)